home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sheriffa / mainform.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-07-26  |  1.6 KB  |  81 lines
  1. unit MainForm;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Menus, ExtCtrls, SlsApi, CSheriff, ToolWin, ComCtrls;
  8.  
  9. type
  10.   TFormMain = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     App: TMenuItem;
  13.     Open: TMenuItem;
  14.     Close1: TMenuItem;
  15.     Edit1: TMenuItem;
  16.     View1: TMenuItem;
  17.     Help1: TMenuItem;
  18.     Index1: TMenuItem;
  19.     About1: TMenuItem;
  20.     Timer1: TTimer;
  21.     procedure About1Click(Sender: TObject);
  22.     procedure Timer1Timer(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.     m_Sheriff:TSheriff;
  26.     m_bRunInFullMode:boolean;
  27.     m_dwAccessLevel:DWORD;
  28.   public
  29.     { Public declarations }
  30.     procedure SetSheriff(Sheriff:TSheriff);
  31.     procedure SetRunMode(bFullMode:boolean);
  32.     procedure SetAccessLevel(dwLevel:DWORD);
  33.   end;
  34.  
  35. var
  36.   FormMain: TFormMain;
  37.  
  38. implementation
  39.  
  40. uses About;
  41.  
  42. {$R *.DFM}
  43.  
  44. procedure TFormMain.SetRunMode(bFullMode:boolean);
  45. begin
  46.     m_bRunInFullMode:=bFullMode;
  47. end;
  48.  
  49. procedure TFormMain.SetAccessLevel(dwLevel:DWORD);
  50. begin
  51.     m_dwAccessLevel:=dwLevel;
  52. end;
  53.  
  54. procedure TFormMain.SetSheriff(Sheriff:TSheriff);
  55. begin
  56.     m_Sheriff:=Sheriff;
  57. end;
  58.  
  59. procedure TFormMain.About1Click(Sender: TObject);
  60. begin
  61.     ShowAboutBox;
  62. end;
  63.  
  64. procedure TFormMain.Timer1Timer(Sender: TObject);
  65. var
  66.     vUpdate:SLS_UPDATE;
  67.     vPermit:SLS_PERMIT;
  68. begin
  69.     if(m_bRunInFullMode=true) then
  70.     begin
  71.         vUpdate.UnitsReserved:=0;
  72.         vUpdate.UnitsConsumed:=0;
  73.         vPermit.UnitsGranted:=0;
  74.         vPermit.AccessKey:=0;
  75.         m_Sheriff.Update(vUpdate,vPermit);
  76.     end;    
  77. end;
  78.  
  79. end.
  80.  
  81.